home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / cmds / dumpsize / RCS / dumpsize,v < prev    next >
Encoding:
Text File  |  1991-09-04  |  1.2 KB  |  73 lines
  1. head     1.1;
  2. branch   ;
  3. access   ;
  4. symbols  ;
  5. locks    jhh:1.1; strict;
  6. comment  @# @;
  7.  
  8.  
  9. 1.1
  10. date     90.12.17.18.33.57;  author kupfer;  state Exp;
  11. branches ;
  12. next     ;
  13.  
  14.  
  15. desc
  16. @Script to figure out how much space is taken on a dump tape.
  17. @
  18.  
  19.  
  20.  
  21. 1.1
  22. log
  23. @Initial version by JHH.
  24. @
  25. text
  26. @#!/sprite/cmds/perl
  27.  
  28. &init;
  29. $tape = $ARGV[0];
  30. shift;
  31. while(<>) {
  32.     if (/^$tape/) {
  33.     ($f1, $f2, $f3, $size, $f4, $f5, $date) = split(' ');
  34.     if ($date != $yesterday) {
  35.         if ($yesterday != -1) {
  36.         $dates[$days] = $yesterday;
  37.         $sizes[$days] = $total;
  38.         $files[$days] = $file;
  39.         }
  40.         $total = 0;
  41.         $file = 0;
  42.         $days++;
  43.         $yesterday = $date;
  44.     }
  45.     $total += $size;
  46.     $file++;
  47.     }
  48.     if (/.*Initializing.*\b$tape$/) {
  49.     &init;
  50.     }
  51. }
  52. $dates[$days] = $yesterday;
  53. $sizes[$days] = $total;
  54. $files[$days] = $file;
  55. $days++;
  56.  
  57. $total = 0;
  58. $file = 0;
  59. for ($i = 0; $i < $days; $i++) {
  60.     $mb = $sizes[$i] / (1024 * 1024);
  61.     printf("Date: %d, %d files, %.2f MB, %.2f Total MB\n", $dates[$i],
  62.     $files[$i], $mb, $mb + ($files[$i] * 2));
  63.     $total += $mb + ($files[$i] * 2);
  64.     $file += $files[$i];
  65. }
  66. printf("Totals : %d files, %.2f MB\n", $file, $total);
  67.  
  68. sub init {
  69.     $yesterday = -1;
  70.     $days = -1;
  71. };
  72. @
  73.